| Filename | (eval 1107)[/usr/share/perl5/Sub/Quote.pm:5] |
| Statements | Executed 0 statements in 0s |
| Eval Invoked At | /usr/share/perl5/Sub/Quote.pm line 5 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 2 | 2 | 2 | 34µs | 552µs | DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count |
| 1 | 1 | 1 | 14µs | 22µs | Sub::Quote::BEGIN@4.2969 |
| 1 | 1 | 1 | 10µs | 10µs | DBIx::Class::Storage::BlockRunner::BEGIN@21 |
| 1 | 1 | 1 | 7µs | 7µs | Method::Generate::Accessor::BEGIN@10.2970 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | { | ||||
| 2 | my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; | ||||
| 3 | my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; | ||||
| 4 | 2 | 30µs | # spent 22µs (14+8) within Sub::Quote::BEGIN@4.2969 which was called:
# once (14µs+8µs) by Sub::Quote::_clean_eval at line 4 # spent 22µs making 1 call to Sub::Quote::BEGIN@4.2969
# spent 8µs making 1 call to warnings::unimport | ||
| 5 | # spent 552µs (34+518) within DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count which was called 2 times, avg 276µs/call:
# once (9µs+516µs) by DBIx::Class::Storage::BlockRunner::run at line 108 of DBIx/Class/Storage/BlockRunner.pm
# once (25µs+3µs) by DBIx::Class::Storage::BlockRunner::run at line 56 of Sub/Defer.pm | ||||
| 6 | $_QUOTED if 0; | ||||
| 7 | $_UNQUOTED if 0; | ||||
| 8 | # BEGIN quote_sub PRELUDE | ||||
| 9 | package Method::Generate::Accessor; | ||||
| 10 | # spent 7µs within Method::Generate::Accessor::BEGIN@10.2970 which was called:
# once (7µs+0s) by Sub::Quote::_clean_eval at line 15 | ||||
| 11 | $^H = "1762"; | ||||
| 12 | ${^WARNING_BITS} = "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"; | ||||
| 13 | %^H = ( | ||||
| 14 | ); | ||||
| 15 | 1 | 7µs | } # spent 7µs making 1 call to Method::Generate::Accessor::BEGIN@10.2970 | ||
| 16 | # END quote_sub PRELUDE | ||||
| 17 | do { my $self = shift; | ||||
| 18 | $self->{"failed_attempt_count"} = $_[0]; | ||||
| 19 | do { local @_ = ($self, $_[0]); # BEGIN quote_sub PRELUDE | ||||
| 20 | package DBIx::Class::Storage::BlockRunner; | ||||
| 21 | # spent 10µs within DBIx::Class::Storage::BlockRunner::BEGIN@21 which was called:
# once (10µs+0s) by Sub::Quote::_clean_eval at line 26 | ||||
| 22 | $^H = "133090"; | ||||
| 23 | ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUU"; | ||||
| 24 | %^H = ( | ||||
| 25 | ); | ||||
| 26 | 1 | 10µs | } # spent 10µs making 1 call to DBIx::Class::Storage::BlockRunner::BEGIN@21 | ||
| 27 | # END quote_sub PRELUDE | ||||
| 28 | |||||
| 29 | 1 | 3µs | $_[0]->throw_exception( sprintf ( # spent 3µs making 1 call to DBIx::Class::Storage::BlockRunner::max_attempts | ||
| 30 | 'Reached max_attempts amount of %d, latest exception: %s', | ||||
| 31 | $_[0]->max_attempts, $_[0]->last_exception | ||||
| 32 | )) if $_[0]->max_attempts <= ($_[1]||0); | ||||
| 33 | }; | ||||
| 34 | $_[0]; | ||||
| 35 | } } | ||||
| 36 | $$_UNQUOTED = \&DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count | ||||
| 37 | } | ||||
| 38 | 1; | ||||
| 39 | |||||
| 40 | ; |